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15-se 1984 23:36:54 VAX-11 Bliss-32 V4.0-74 Page 1 

12-Sep-19 4 $7 :38:36 DLSKSVMEHASTERSCCDU- SRCSGENCODE .83207° (1) 
; 1 1 MODULE gencodel (IDENT='V04-000' 
; ¢ 0 ADDRESSING_MODE (EXTERNAL=GENERAL) ) 
: i Ob, = BEGIN 
: 5 Bee } iat atalino 
; :@¢ 
: * $009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY “ 
: 8 0008 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 10 484 : i ALL RIGHTS RESERVED. * 
3 / * 
OB: 0011 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; \§ Bolg 1 !* ONLY IN. ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
cy 013 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3; % 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 15 0015 1 !* oy PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 1$ Bais : * RANSFERRED. * 
3 :® ® 
: 0018 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $4 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $9 434 ’ - CORPORATION. * 
3 '® * 
3 $§ 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ae 00235 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 626 00246 1 !* * 
; & 0025 1 !* * 
s $$ Boss 1 VR RARER REA AAAAAAAAERAARAAAAE ERATE REE 
; 00 1 
; @ 0028 1 !++ ‘ 
; $6 34 : } Facility: Command Definition Utility, Table Generator Module 1 
; 1 0031 1 ! Abstract: This module is one of a few modules that is responsible 
; ot 4 +! for peneretine the blocks that make up the DCL tables. 
a 0035 1! The blocks are generated by traversing the intermediate 
; | «34 0034 1! representation of the CLD file created by the parsing 
3; 2 0035 1! modules. 
; » 0036 1! 
Pe 4 0037 1! It is recommended that you read over the CLITABDEF.SDL file 
3 3 4 : } before reading this code. 
3 rs aoeg ; : Environment: Standard CDU environment. 
3; 9h 4 1 ! Author: Paul C. Anagnos topoulos 
3s 65 0045 1 ! Creation: 8 December 1982 
s 6 0044 1! 
; 65 0045 1 ! Modifications: 
; 46 0046 1 !-- 
s; 67 0047 1 
; 68 0048 1 
; «649 0049 1 Library eypetioracys lib"; 
; 2 0050 1 require ‘clitabdef'; 
te. 0375 1 require ‘cdureq'; 


8 
1 Sse 1984 23:36:54 VAX-11 Bliss=-32 V4.0-74 Page 
127800- 1382 #7 :88:35 DLSKSVMGMASTERSLCDU. SRCIGENCODE1.83204° (25 
3 79 63 3 TABLE OF CONTENTS 
5 791 «4 
$ 792 «1 forward routine 
793 «1 cdu$generate_table_blocks: novalue, 
8 794 (1 cdu$Sreport_semantic_error: novalue, 
59 795 (1 cdu$Sremember_reference: novalue, 
60 796 1 cdu$Sresolve_references: novalue; 
61 0797 1 
o¢ o738 1 
6 07 7? EXTERNAL REFERENCES 
64 800 1 ' eSeeeeeoenoeonenene2e2eo 2 35389«2@2e2eeo 72 Se ew Sw ee co 
65 801 1 
66 802 1 external routine 
67 0805 1 cdu$create_node, 
68 0804 1 cdu$generate_command, 
69 0805 1 cdu$Sreport_listing_Line, 
70 08 1 cdu$lookup_child, 
71 0807 1 cdu$generate_type, | 
Le: 0808 1 Lib$signal; 
7 0809 1 
74 0810 1 external 
75 0811 +1 cdu$gl_cld_errors: long, 
76 0812 1 cdu$gl_root_node: ref node, 
77 0813 1 cdu$gl_table: pointer; 


é 
B-sen- 1982 93:88:36 | bhecdbmehd SfeRsclbu sRCcENCODE?.83269°° « 


461! OWUN STORAGE 
a817 ; ! The following item is the head of the Linked List of resolution nodes. 
0819 1 own 
0820 1 resolution_list: long; 
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15-Sep-1984 23:36:54 VAX-11 Bliss-32 V4.0-74 Page 4 
12-8001 8c $7: 38:35 TT EKSUMCHASTERSCEDU SRCIGENCODE1 83204” (4) 
OVERVIEW OF CODE GENERATION 


block, Se out the necessary information, and stashing it in the 
table block. 


Each generation routine operates by first allocating space for the : 
largest possible table block. t then traverses the subtree representin 
its construct, filling in the table block. If it encounters a node whic 
represents another construct, it calls that construct's peers 
routine to do its thing. t{ the blocks are Linked together on the fly 
via Table-Relative Offsets (TRO). 


Note that when the generation process is complete, the table blocks are 
spread all over memory. Before the table is written out, it_must be 
collected into one contiguous area. This is done in module TABLE. 
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1$-sep-19 4 23:36:54 VAX-11 Bliss 
12286871382 $7 :38:36 DISKSVMSMAS 
ee 
! Description: This routine is responsible for driving the meet eee of 
: table blocks for the CLD file that has just been parsed. 

It scan the children of the top-level node in the 

intermediate representation, looking for verb, syntax, 
and type definitions. 


1 
i 
i 
i 
Parameters: None. 
i 
i 


Returns: Nothing. 
! Notes: 
GLOBAL ROUTINE cdu$generate_table_blocks : novalue 
= BEGIN 
local 


child: ref node; 
! Clear the head of the resolution node Linked list. We will Link nodes 
! onto this List as we generate blocks. 
resolution_list = 0; 
! Simply scan the children of the root node, looking for definitions. 
scan_children(cdu$gl_root_node, child, 

! Case on the type of child node. 

case .child[node_w_type] from 0 to node_k_max_type of set 


Cnode_k_ident 
node_k_moduleJ: 


! The above nodes can be ignored. 


Cnode_k_define_verb, 
node_k_define_Syntax]: 


! Call a routine to generate all blocks for the verb 
! or syntax change definition. 


cdu$generate_command(.child); 
Cnode_k_define_type): 


! Call a routine to generate all blocks for the type 
! definition, 


cdu$generate_type(.child); 
Cinrange, 


=3 
TER 


2 V4. 
:CCDuU 
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| GENCODE1 1B-sep-19 4 23:36:54 VAX-11 Bliss-32 V4.0-74 Page 6 
Rives 14-Sep-1984 $7 38:35 TE RSUNGMASTERSCEDU. SRCIGENCODE1 832-47 (5) 
; 165 P 43 outrange): 
: 388 P 0900 ! Oops! kind of b 
: ! Oops! e've got some kind of bug. 
: 185 P 0903 a (ed Me invnode) ) 
; signal (msg(cdu$_intinvnode)); 
: 190 FB 8388 tes; ° ° S 
3; 171 0904 3 
; \7¢ 0905 
3; 7 09 ! We have generated tabie blocks for the entire CLD file. In the process, 
; 174 090 ! however, we probably encountered inter-block references that couldn't be 
3 1a? 84 ' resolved. Resolve them now. 
; 179 910 cdu$Sresolve_references(); 
s 7 0911 
; 179 091 return; 
; 180 091 
: 181 0914 1 END; 
-TITLE GENCODE1 
-IDENT \v04-000\ 
-PSECT SOWNS,NOEXE,2 
00000 RESOLUTION_LIST: 
-BCKB 4 
-EXTRN CDUSCREATE_NODE 
-EXTRN CDUSGENERATE_ COMMAND 
eEXTRN CDUSREPORT_LISTING_LINE 
eEXTRN CDUSLOOKU HILD 
-EXTRN CDUSGENERATE_TYPE 
-EXTRN LIBSSIGNAL, CDUSGL_CLD_ERRORS 
“EXTRN CDUSGL_ROOT 
-EXTRN CDUSGL-TABLE, CDUS_INTINVNODE 
-PSECT S$CODES,NOWRT,2 
0004 00000 ENTRY CDUSGENERATE_TABLE_BLOCKS, Save R2 ; 0855. 
0000' CF 04 00002 CLRL RESOLUTION_LIST : 0865 
50 00000000G 00 D0 00006 MOVL CDUSGL_ROOT_NODE, RO 3; 0904 
52 08 AO 00 00000 MOVL (RO), CHILB 3 
03 12 00011 1$: BNEQ $ 3 
009A 31 4 SFA BRW $ 3 
35 00 62 AF 00016 2$: CASEW a ae #0, #53 3 
008F 0O08F 006C 006C QOOO1A 3$: -WORD 4$-3$,- 3 
006C 0086 0078 0078 00022 4$-3$,- 3 
006C 006C 006C 006C Q002A 7$-3$,- 3 
006C 006C 006C ppee 00032 7$-3$,- 3 
006C 006C 006C 06C B08 A 5$-3$,- 3 
006C 006C 006C 006C 0042 5$-3$.- 3 
006C 006C 006C 006C OO4A 6$-3$,- 3 
006C Boot 006C 06C 0052 4$-3$,- 3 
006C 06C 006C 06C 005A 4$-3$,- ; 
006C 006C 006C 06C 0062 4$-3$,- 3 
006C Bpee Oper BRet Bp oes 4$-5$,- 3 
006C 06C 06C 06C 0072 4$-3$,- 3 
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182 bytes, Routine Base: S$CODE$ + 0000 


; Routine Size: 
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grey 1S-seo-1986 25:36:54 


VAX-11 BLi H PE reg Page 
Disk KSVMSMA ae cebu. SRC GENCODE1.832; 
> 183 915 1 !44 
g Y 38 1 ! Description: This routine is called when a semantic error is encountered. 
> 185 917 1! It signals the error so that it will appear on the 
. % ais 1! terminal. It alse includes the error in the Listing file, 
; Tf b338 : } f any. 
3 139 03 1 : Parameters: Standard SPUTMSG argument List. 
; 191 09 § ; Returns: Nothing. 
3 198 34 5 ' Notes: You may want to compare this to CDUSREPORT_SYNTAX_ERROR. 
: 195 $959 Ss 
3s 1% 0928 1 GLOBAL ROUTINE cdu$Sreport_semantic_error : novalue 
3: 197 0929 = BEGIN 
; «4198 0930 
; 199 0931 builtin 
; 200 aa 4 ~~ 
; 201 093 
3 $0¢ 0934 
; 2 0935 
> 204 0936 ! Signal the error. 
; $08 st) Lig( trQ), lib$si l) 
3 ca argptr(), lib$s 3 
: 507 0939 —— _ 
: soe bare 2 ! Include the error message in the Listing file. 
; $0 O3e ; callg(argptr() ,cduSreport_lListing_Line); 
: $13 0944 !' Keep track of the number of semantic errors. 
s aie 0945 
> 214 0946 increment (cdu$gl_cld_errors); 
3 si? 0947 
3 16 0948 § return; 
gs ave 0949 
; 218 0950 1 END; 
0000 00000 -ENTRY CDUSREPORT_SEMANTIC_ERROR, Save nothing : 
000000006 00 6C FA 00002 CALLG rat LIB 3 
000000006 00 6C FA 00009 CALLG (AP), CDUSREPORT_LISTING_LINE 3 
000000006 00 06 00010 INCL CDUSEL _CLD_ERRORS 3 
04 00016 RET 3 
| 
| 
| 
| 
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: REFERENCE RESOLUTION 


Definitions in a CLD file can make references to other definitions in 

the file. {hese references cannot be resolved as the CLD is parsed, 
ons do not have to appear before references to them. 

Therefore, the references must be resolved during code generation. 


OOOODOOOOOO 


PUPS 


When a reference is encountered during code generation, a reference 
resolution node is created. This node contains the following information: 


o This sister pointer is used to chain all of the resolution nodes 
on a list, so that we can process them quickly after code 
generation. 


peflelelelelelelelelelelelelelelol a} 


NOVUEUN “OO OONOUS wr 


SSOSSSOS 


o The child pointer is used to reference the top-level node of the 
definition being referenced. After code generation, this node 


ah eb dt ts 8 tt 8 


344: will contain the TRO of the table block being referenced. 

0970 o The code potater is used to reference the longword which is to 
0971 contain the reference. We can fill in this longword after code 
0972 generation is completed. 


| 9 
Voeb05 15-Se0-1984 $7:88:35  ISuMGMASTERSEYOU SACIGENCODE.832037" <a) 


; 243 0973 1 I++ 

> 246 974 1! Description: This routine is called to remember a definition reference 
; 245 975 1! which must be resolved after code generation is completed. 
3 rf a8 Fe A resolution node is created and used to remember the 

3 rt 4 bat : information needed to resolve the reference later. 

; 249 $378 1 ! Parameters: referencor By reference, the longword to contain the 
3 2 44 a reference to the table block containing 

3 1 981 1! the definition. 

; 26 ace 1: definition By reference, the node representing the 

3 rt B38 : } definition being referenced. 

; 255 0385 1 ! Returns: Nothing. 

> 256 aae 2 

3 gor 0987 1 ! Notes: 

; 258 0988 1 !-- 

; 259 0989 1 

; 260 0990 1 GLOBAL ROUTINE cduSremember_reference(referencor: pointer, 

; 261 0991 1 definition: ref node) : novalue 
: $oe 099 = BEGIN 

; 26 099 

> 264 0994 local 

; 265 0995 resolution: ref node; 

; 0996 

3 eer 0997 

: 268 0998 : Create a resolution node to remember the reference for Later processing. 
; £8 1444 § ! Link the node on the front of the List of resolution nodes. 

3 (ar 1001 resolution = cdu$create_node(node_k_resolution); 

3; 27 100 resolution(node_l_sister] = .resolution_List; 

3 HS, 190i resolution_list = .resolution; 

are 1005 ! Remember the referencing Longword in the code pointer, and the referenced 
; $f8 4 3 ! definition node in the child pointer. 

; 278 1008 resolution([node_l_code] = .referencor; 

3; 279 1009 resolution[node_l_child] = .definition; 

; 280 1010 

: 281 1011 return; 

; 282 a 

; 283 1013 1 END; 


0000 00000 -ENTRY COUSREMERBER_REF ERENCE . Save nothing 
F Dd 000 PUSH ig 


es 


WOOwN — 


: 0 
0002 USHL : 1 
000000006 00 FB 00004 CALLS #1, CDUSCREATE_NODE : 
4 AO 0000" CF 00 0000B MOVL § RESOLUTION_LIST, 4(RESOLUTION) > 100 
0000° CF 0 09 0011 MOVL RESOLUTION; RESOLUTION LIST : 100 
0c AO 04 AC DO 00016 MOVL §§REFERENCOR, 12(RESOLUTION) : 100 
08 a0 08 AC v0 0018 MOVL DEFINITION, 8(RESOLUTION) : 190 


3; Routine Size: 33 bytes, Routine Base: $CODE$ + O0CD 
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14-Sep-1984 D 


ea 


85 'ee 
My] ! Description: This routine is called after code generation is completed. 
8 ; t f orghes up the task of resolving references to 
4 : definitions by scanning the List of resolution nodes and 
9 : storing the final TRO of the referenced block into the 
4 } referencing longword. 
% ! Parameters: None. 
94 i Returns: Nothing. 
% not 
es 

37 lee 

GLOBAL ROUTINE cdu$resolve_references : novalue 

= BEGIN 

local 


] 
| 


resolution: ref node, 
definition: ref node, 
referencor: pointer; 


SIRAR WUD 


! Scan all of the resolution nodes that were created as references were 
! discovered during code generation. 
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09 

10 

11 resolution = .resolution_List; 

\¢ while .resolution neqa 0 do ( 

14 ! The child pointer references a node representing the definition 
15 ! being referenced. That node now contains the TRO of the 

18 : ! definition block. 

18 4 definition = .resolution(node_l_child]; 

20 ! The code pointer points at a jonguore in some table block 

21 5 ! which is to receive the TRO of the referenced definition block. 
$$ 5 ! Store the TRO in the Longword. 

24 é referencor = .resolution[node_|_code]; 

$2 : referencor(0,0,32,0) = .defintttoninode_\_code); 

34 : ! Go on to the next resolution node. 
329 928 ; resolution = .resolution[node_|_sister]; 
331 060 ° 

32 061 return; 

$37 B06 

34 06 END; 


0004 00000 -ENTRY CDUSRESOLVE REFERENCES, Save R2 
50 0000" CF 00 00002 MOVL RESOLUTION_CIST, RESOLUTION 


RR I ee Ee eee, pec ee 


; Routine Size: 24 bytes, Routine Base: SCODES + OOEE 


| GENCODE1 bse =1984 23:36:54 VAX-11 Bliss-32 V4.0-74 p 1 
|¥Oe=000 12-808-198e $7 38:36 NLEKSUMGRASTERSCCDU SRC IGENCODE1.B32647" (9 
OE 13 00007 1$: BEQL $ 31 
51 8 af ; 0099 MOVG § RESOLUTION) DEFINITION : 194 
7} Al OD 99 D MOVL  12(DEFINITIONS, (REFERENCOR) + 105 
A MOVL RESOLUTION), RESOLUTION + 105 
4 Aad DO 00011 4( T 
FO 1 0015 BRB 1$ + 104 
04 00017 2$: RET : 106 


; 5 1064 1 
3 : 1065 1 END 
3 1066 0 ELUDOM 
eEXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
; SOWNS 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 262 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bis ans eee eee ae 5 ee ei Syabels qccceese Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 4 0 1000 00:01.8 
; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GENCODE1/0BJ=OBJ$:GENCODE1 MSRC$:GENCODE1/UPDATE=(ENHS$:GENCODE1) 
eer 262 code + 4 data bytes 


; Run Time: : 
; Elapsed Time: 0 


; : 
3 Lines/CPU Min: 


3 0° 
; Lexemes/CPU-Min: 22539 


ry Used: 111 pages 
; Compilation Complete 
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